a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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F 
F 
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**F 1LE**1D**FORDATE 


FFFFFFFFFE 000000 RRRRRRRR DDDDDDDD AAAAAA TTTTTTTITT EEEEEEEEEE 
FFFFFFFFFF 000000 RRRRRRRR DDDDDDDD AAAAAA TTTTTTTTTT EEEEEEEEEE 

FF 00 00 RR RR DD DD AA AA TT EE 

FF 00 0O RR RR DD DD AA Ab TT EE 

FF 00 OO RR RR DD DD AA AA TT EE 

FF 00 OO RR RR DD DD AA An TT EE 

FFFFFFFF 00 O00 RRRRRRRR DD DD AA AA TT EEEEEEEE 

FFFFFFFF 00 O00 RRRRRRRR DD DD AA AA TT EEEEEEEE 

FF 00 OO RR RR DD DD AAAAAAAAAA TT EE 

FF 00 00 RR RR DD DD AAAAAAAAAA TT EE 

FF 00 0O RR RR dD DD AA AA TT EE coe 
FF 00 00 RR RR DD DD AA AA TT EE eee 
FF 000000 RR RR DDDDDDDD AA AR TT EEEEEEEEEE eeee 
FF 000000 RR RR DDDDDDDD AA AL TT EEEEEEEEEE cess 
LL IIII11 SSSSSSSS 

LL 111] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] S$ 

LL I] SS 

LL il SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL II111 SSSSSSSS 
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; return system date in 9-byte array 


STORY ; Detailed Current Edit History 
CLARATIONS 
RSDATE - return system date as an 9 byte string 


15-SEP-1984 23:50:02 VAX/VMS Macro v04-00 


Page 


0. 


J 12 
; return system date in 9-byte array 15-SEP-1 oR #320 08 AX/VMS Maco V04-00 
6-SEP=-1984 FORRTL.SRCJFORDATE.MAR; 1 
re 
Fi 


SOQOCoQoooooooooCooooooooe 
CSOOooooooooooooooooo°oo 


eeeeeeeeeeeeeeeneennee 


OOoOooooooooooooooooooooooooo 


furn srsten date in 9-byte array 
l DATE .MAR 


MARA AARRAARARRASAASLARASALSAALASALESAS ASE SESE REESE SESE EEE SEE EER EEE EERE ESS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE i} FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF aie cobtuane ow oe 4 


V 'd 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeepORAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARRRRARARRRAAARASALAASALASASALALESEAALELERSESES ALARA REAR RA SALAS ARR LAS SS SO 


sf ACILITY: FORTRAN SUPPORT LIBRARY 
"ABSTRACT: 


Call system service SASCTIM to return system date to user 
area. 


VERSION: 0 


HISTORY: 


R: 
Jonathan M. Taylor, 18-Aug-77: Version 0 


MODIFIED BY: 


oooo 
OOoOoooooooooooooooooooooooo 
CGOOOCOCOOCOCOSOSOSOSSSSSSSOOSCOSSCSSOSOSOSCOSCOSOSOSOOOOOOOOCOOOOOOOO 


CONAUES WR HO OOONAUE WN OS OD NAUE WN 0 OO NAUES WN OOONOU Sw 


SBR EEE EE BAW WWINNINIWIAIDPNPONONPONPO NONUMY Nn 3 2 2 


pole eleleleleleie ele ele leleiele ee 4 $4 


0 
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0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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9 -SBTTL HISTORY ; Detailed Current Edit History 
; Edit History for Version 0 of FORSDATE 
0 ® 
0 2$ 3; 0-3. = Remove FORSFLAG_JACKET. TNH 11-July-78 
0000 57 ; 1-001 - Kogere version number and copyright net tee JBS 16-NOV-78 
0000 58 : 1-002 - Add '"' to the PSECT directive. JBS 22-DEC-78 


me 
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FORSDATE ; return system date in 9-byte arra "3 EP=1 0: AX/VM cro V04- P | 
ee BECLARATIONS é . aes 8; 29 £98 FORRTL. SRCJFOR NPAT 90 aR: i ay 
$0 -SBTTL DECLARATIONS 
86 3 
65 ; INCLUDE FILES: 
64 ; oerr.mar 
92 
0 88 3; EXTERNAL SYMBOLS: 
8 og -GLOBL SYSSASCTIM 
3 
00 0; 
B38 4 5 mua 
9000 og 
0000 74; 
44 75 ; PSECT met LARATIONS: 
00000000 76 PSECT _FORSCODE PIC, SHR, LONG, EXE, NOWRT 
0000 77 
0000 78 ; 
0000 79 ; EQUATED SYMBOLS: 
0000 80 ; NONE 
0000 81 
0000 Hf 3 
0000 83 ; OWN STORAGE: 
0000 84 ; NONE 
0000 85 


FORSDATE 
1-002 


M12 
system date in 9=-byte arra 15-SEP-1984 750: AX/VMS Macro Vv04-00 P 4 
= return system dave as an 9 by 6-SEP-1984 19:30:95 LRORRTL. SREIFORDATE MAR: 1 ~~ “s 


i -SBTTL FORSDATE = return system date as an 9 byte string 


; retur 
FORSDAT 


++ 

FUNCTIONAL DESCRIPTION: 
Returns system date as an 9 byte le in the form 
DD-MMM-YY. Build a work space on the stack to con- 
tain the date returned by the system (DD-MMM-YYYY). 
Do a SASCTIM to get date into this area. Move the string 
into the user area, artfully avoiding the first two YY's. 


CALLING SEQUENCE: 
CALL FORSDATE (9_byte_array.wb.ra) 


INPUT PARAMETERS: 
9_byte_array the addr of 9 bytes into which the 
string is to be placed 


FW OC OONAUE WIN OOo 


IMPLICIT INPUTS: 
NONE 


pm pe wef e fw ole le lolol olo lo lolololololololo!) 
COOOCOCCOCOOOCOCOCOOCOCOCOOOCOOOoOoOO ms 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


a ha eee) we) eee le le lw la lolol oleae oleloleleleololelelolelalelelelolololololo!) 


NIN —— GHOooooooooccccc00o0 


003C eENTRY FORSDATE, “M<R2,R3,R4,R5> 
, a ae. SUBL #12, SP 3; make space for date string 
s.lUeltltCOWD MOVL SP, R2 ; R2 => space ’ 
7 wa oe MOVL R2, =(SP) ; build a string descriptor 
7E 010E000B 8F 0 MOVL  #*X10E000B, -(SP) ; len=11 
50 5E 00 MOVL SP, RO ; RO => string descriptor 
SASCTIM_S » (RO) ; R2 => date string 
04 BC 62 07 38 MOVCS “#7, (R2), @4(AP) ; move in ‘'‘dd-mmm- 
81 81 91 CMPB_ = (RI) +, (R1)¢4 > skip "19°" 
63 61 02 28 ¢f MOVC3 #2, (R1), (R3) 3 move in rest of year 
04 RET ; return to user 


OOCOCCOOCOCOCOOOSOSOOSOOSOOSOOSOOOCOOOOOOCOOOOOOOOOOOOOOOOOO 


SOOO CoooooooooooooooooooooeoSo 
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ed ed ee ee a cae ee cae ee ce cee eed cee ee ed ee ea a ee ed ee ee ce ee ee ee eed eed ee ce ee end eed ed ee eed 
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FORSDATE ; return system date in 9-byte array iF ak sat b+ 93:30:08 AX/VMS Macro V04-00 Page 5 
Symbol table 66-SEP-1984 10:54: FORRTL.SRCJFORDATE.MAR; 1 (4). 
FORSDATE 00000000 RG 01 
SYSSASCTIM eeereeee G 00 

posse wmane nea snocaon a 

: Psect synopsis ! 

foeceeeceeoecoon aseaoee > 
PSECT name Allocation PSECT No. Attributes 
a . 00000000 0.) 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_FORSCODE 00000031 (¢ 49.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

boeceneae Sees eoaa sam moaan es + 
; Performance indicators H 

Phase Page faults CPU Time Elapsed Time 
Initialization | 29 00:00:00.07 00:00:00 .83 
Command processing 102 00:00:00.43 00:00:03.08 
Pass 96 00:00:00.53 00:00:03.14 
Symbol table sort 0 es SS ee BS Be 
Pass 2 39 00:00:00.31 00:00:01.34 
Symbol table output 2 00:00:00.01 B82 08:20 -06 
Psect synopsis output 2 00:00:00.03 00:00:00.2 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 272 00:00:01.41 00:00:08.70 


The working set Limit was 900 pages. ‘ : 

1785 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 2 non-local and 0 local symbols. 
136 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

2 pages of virtual memory were used to define 2 macros. 


+ 
' Macro Library statistics ! 
fewmomoan sneer eocecor er oeceees > 


Macro Library name Macros defined 
“S255SDUAZB:(SYSLIBJSTARLET.MLB;2 0 i tttttSSSS 2 
15 GETS were required to define 2 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRE SSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:FORDATE/OBJ=OBJ$:FORDATE MSRC$:FORDATE/UPDATE=(ENHS$:FORDATE) 
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